home *** CD-ROM | disk | FTP | other *** search
/ NeXT Education Software Sampler 1992 Fall / NeXT Education Software Sampler 1992 Fall.iso / Programming / Source / winterp-1.13 / src-server / wc_ToggleB.c < prev    next >
Encoding:
C/C++ Source or Header  |  1991-10-04  |  10.2 KB  |  279 lines
  1. /* -*-C-*-
  2. ********************************************************************************
  3. *
  4. * File:         wc_ToggleB.c
  5. * RCS:          $Header: wc_ToggleB.c,v 1.3 91/03/14 03:15:26 mayer Exp $
  6. * Description:  XM_TOGGLE_BUTTON_WIDGET_CLASS/XM_TOGGLE_BUTTON_GADGET_CLASS
  7. * Author:       Niels Mayer, HPLabs
  8. * Created:      Sat Oct 28 04:56:30 1989
  9. * Modified:     Thu Oct  3 22:43:58 1991 (Niels Mayer) mayer@hplnpm
  10. * Language:     C
  11. * Package:      N/A
  12. * Status:       X11r5 contrib tape release
  13. *
  14. * WINTERP Copyright 1989, 1990, 1991 Hewlett-Packard Company (by Niels Mayer).
  15. * XLISP version 2.1, Copyright (c) 1989, by David Betz.
  16. *
  17. * Permission to use, copy, modify, distribute, and sell this software and its
  18. * documentation for any purpose is hereby granted without fee, provided that
  19. * the above copyright notice appear in all copies and that both that
  20. * copyright notice and this permission notice appear in supporting
  21. * documentation, and that the name of Hewlett-Packard and David Betz not be
  22. * used in advertising or publicity pertaining to distribution of the software
  23. * without specific, written prior permission.  Hewlett-Packard and David Betz
  24. * make no representations about the suitability of this software for any
  25. * purpose. It is provided "as is" without express or implied warranty.
  26. *
  27. * HEWLETT-PACKARD AND DAVID BETZ DISCLAIM ALL WARRANTIES WITH REGARD TO THIS
  28. * SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS,
  29. * IN NO EVENT SHALL HEWLETT-PACKARD NOR DAVID BETZ BE LIABLE FOR ANY SPECIAL,
  30. * INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM
  31. * LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE
  32. * OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
  33. * PERFORMANCE OF THIS SOFTWARE.
  34. *
  35. * See ./winterp/COPYRIGHT for information on contacting the authors.
  36. * 
  37. * Please send modifications, improvements and bugfixes to mayer@hplabs.hp.com
  38. * Post XLISP-specific questions/information to the newsgroup comp.lang.lisp.x
  39. *
  40. ********************************************************************************
  41. */
  42. static char rcs_identity[] = "@(#)$Header: wc_ToggleB.c,v 1.3 91/03/14 03:15:26 mayer Exp $";
  43.  
  44. #include <stdio.h>
  45. #include <Xm/Xm.h>
  46. #include <Xm/ToggleB.h>
  47. #include <Xm/ToggleBG.h>
  48. #include "winterp.h"
  49. #include "user_prefs.h"
  50. #include "xlisp/xlisp.h"
  51. #include "w_funtab.h"
  52.  
  53.  
  54. extern Widget Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(); /* w_classes.c */
  55.  
  56.  
  57. /******************************************************************************
  58.  * typedef struct
  59.  * {
  60.  *    int reason;
  61.  *    XEvent * event;
  62.  *    int set;
  63.  * } XmToggleButtonCallbackStruct;
  64.  ******************************************************************************/
  65. static LVAL s_CALLBACK_SET;
  66. static void Lexical_Bindings_For_XmToggleButtonCallbackStruct(bindings_list, lexical_env, cd, o_widget)
  67.      LVAL bindings_list;    /* a list of symbols to which values from XmToggleButtonCallbackStruct are bound */
  68.      LVAL lexical_env;        
  69.      XmToggleButtonCallbackStruct* cd;
  70.      LVAL o_widget;        /* XLTYPE_WIDGETOBJ */
  71. {
  72.   extern LVAL s_CALLBACK_WIDGET, s_CALLBACK_REASON, s_CALLBACK_XEVENT; /* w_callbacks.c */
  73.   extern LVAL Wcb_Get_Callback_Reason_Symbol();    /* w_callbacks.c */
  74.   extern LVAL true;
  75.   register LVAL s_bindname;
  76.  
  77.   for ( ; consp(bindings_list); bindings_list = cdr(bindings_list)) {
  78.  
  79.     s_bindname = car(bindings_list);
  80.  
  81.     if (s_bindname == s_CALLBACK_WIDGET) {
  82.       xlpbind(s_bindname, o_widget, lexical_env);
  83.     }
  84.     else if (s_bindname == s_CALLBACK_REASON) {
  85.       xlpbind(s_bindname, Wcb_Get_Callback_Reason_Symbol(cd->reason), lexical_env);
  86.     }
  87.     else if (s_bindname == s_CALLBACK_XEVENT) {
  88.       xlpbind(s_bindname, (cd->event) ? cv_xevent(cd->event) : NIL, lexical_env);
  89.     }
  90.     else if (s_bindname == s_CALLBACK_SET) {
  91.       xlpbind(s_bindname, (cd->set) ? true : NIL, lexical_env);
  92.     }
  93.     else {
  94.       extern char temptext[];    /* from winterp.c */
  95.       sprintf(temptext,
  96.           "Unknown binding name in XmToggleButtonCallbackStruct callback evaluator. Valid symbols are [%s %s %s %s].",
  97.           (char*) getstring(getpname(s_CALLBACK_WIDGET)),
  98.           (char*) getstring(getpname(s_CALLBACK_REASON)),
  99.           (char*) getstring(getpname(s_CALLBACK_XEVENT)),
  100.           (char*) getstring(getpname(s_CALLBACK_SET)));
  101.       xlerror(temptext, s_bindname);
  102.     }
  103.   }
  104. }
  105.  
  106.  
  107. /******************************************************************************
  108.  * This is called indirectly via XtAddCallback() for callbacks returning
  109.  * an XmToggleButtonCallbackStruct as call_data.
  110.  ******************************************************************************/
  111. static void XmToggleButtonCallbackStruct_Callbackproc(widget, client_data, call_data)
  112.      Widget    widget;
  113.      XtPointer client_data;
  114.      XtPointer call_data;
  115. {
  116.   extern void Wcb_Meta_Callbackproc(); /* w_callbacks.c */
  117.  
  118.   Wcb_Meta_Callbackproc(client_data, call_data,
  119.             Lexical_Bindings_For_XmToggleButtonCallbackStruct,
  120.             NULL);
  121. }
  122.  
  123.  
  124. /******************************************************************************
  125.  * Same as WIDGET_CLASS's :add_callback method except that this understands
  126.  * how to get values from the XmToggleButtonCallbackStruct.
  127.  * Specifying one or more of the following symbols in the callback bindings 
  128.  * list will bind that symbol's value in the lexical environment of the callback:
  129.  * CALLBACK_WIDGET
  130.  * CALLBACK_REASON
  131.  * CALLBACK_XEVENT
  132.  * CALLBACK_SET
  133.  ******************************************************************************/
  134. LVAL Xm_Toggle_Button_Widget_Class_Method_ADD_CALLBACK()
  135. {
  136.   extern LVAL Wcb_Meta_Method_Add_Callback(); /* w_callbacks.c */
  137.  
  138.   return (Wcb_Meta_Method_Add_Callback(XmToggleButtonCallbackStruct_Callbackproc, FALSE));
  139. }
  140.  
  141.  
  142. /******************************************************************************
  143.  * Same as WIDGET_CLASS's :set_callback method except that this understands
  144.  * how to get values from the XmToggleButtonCallbackStruct.
  145.  * Specifying one or more of the following symbols in the callback bindings 
  146.  * list will bind that symbol's value in the lexical environment of the callback:
  147.  * CALLBACK_WIDGET
  148.  * CALLBACK_REASON
  149.  * CALLBACK_XEVENT
  150.  * CALLBACK_SET
  151.  ******************************************************************************/
  152. LVAL Xm_Toggle_Button_Widget_Class_Method_SET_CALLBACK()
  153. {
  154.   extern LVAL Wcb_Meta_Method_Add_Callback(); /* w_callbacks.c */
  155.  
  156.   return (Wcb_Meta_Method_Add_Callback(XmToggleButtonCallbackStruct_Callbackproc, TRUE));
  157. }
  158.  
  159.  
  160. /******************************************************************************
  161.  * (send <togglebutton> :GET_STATE)
  162.  * ==> returns T if button is set, NIL if not.
  163.  * 
  164.  * Boolean XmToggleButtonGetState (Widget w);
  165.  * Boolean XmToggleButtonGadgetGetState (Widget w);
  166.  ******************************************************************************/
  167. LVAL Xm_Toggle_Button_Widget_Class_Method_GET_STATE()
  168. {
  169.   LVAL self;
  170.   Widget widget_id;
  171.   extern LVAL true;
  172.  
  173.   widget_id = Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(&self);
  174.   xllastarg();
  175.  
  176.   return (XmToggleButtonGetState(widget_id) ? true : NIL);
  177. }
  178.  
  179. LVAL Xm_Toggle_Button_Gadget_Class_Method_GET_STATE()
  180. {
  181.   LVAL self;
  182.   Widget widget_id;
  183.   extern LVAL true;
  184.   
  185.   widget_id = Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(&self);
  186.   xllastarg();
  187.  
  188.   return (XmToggleButtonGadgetGetState(widget_id) ? true : NIL);
  189. }
  190.  
  191.  
  192. /******************************************************************************
  193.  * (send <togglebutton> :SET_STATE <state_p> <notify_p>)
  194.  * ==> returns <togglebutton>.
  195.  * <state_p> -- NIL if button is off, else button is on.
  196.  * <notify_p> -- if not NIL, :xmn_value_changed_callback gets called.
  197.  *
  198.  * void XmToggleButtonSetState (Widget w, Boolean newstate, Boolean notify);
  199.  * void XmToggleButtonGadgetSetState (Widget w, Boolean newstate, Boolean notify);
  200.  ******************************************************************************/
  201. LVAL Xm_Toggle_Button_Widget_Class_Method_SET_STATE()
  202. {
  203.   LVAL self, state_p, notify_p;
  204.   Widget widget_id;
  205.   
  206.   widget_id = Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(&self);
  207.   state_p = xlgetarg();
  208.   notify_p = xlgetarg();
  209.   xllastarg();
  210.  
  211.   XmToggleButtonSetState(widget_id, 
  212.              (state_p) ? TRUE : FALSE,
  213.              (notify_p) ? TRUE : FALSE);
  214.   return (self);
  215. }
  216.  
  217. LVAL Xm_Toggle_Button_Gadget_Class_Method_SET_STATE()
  218. {
  219.   LVAL self, state_p, notify_p;
  220.   Widget widget_id;
  221.   
  222.   widget_id = Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(&self);
  223.   state_p = xlgetarg();
  224.   notify_p = xlgetarg();
  225.   xllastarg();
  226.  
  227.   XmToggleButtonGadgetSetState(widget_id, 
  228.                    (state_p) ? TRUE : FALSE,
  229.                    (notify_p) ? TRUE : FALSE);
  230.   return (self);
  231. }
  232.  
  233.  
  234. /******************************************************************************
  235.  *
  236.  ******************************************************************************/
  237. Wc_ToggleB_Init()
  238. {
  239.   LVAL o_XM_TOGGLE_BUTTON_WIDGET_CLASS;
  240.   LVAL o_XM_TOGGLE_BUTTON_GADGET_CLASS;
  241.   extern LVAL Wcls_Create_Subclass_Of_WIDGET_CLASS(); /* w_classes.c */
  242.   extern      xladdmsg();    /* from xlobj.c */
  243.   
  244.   o_XM_TOGGLE_BUTTON_WIDGET_CLASS =
  245.     Wcls_Create_Subclass_Of_WIDGET_CLASS("XM_TOGGLE_BUTTON_WIDGET_CLASS",
  246.                      xmToggleButtonWidgetClass);
  247.  
  248.   xladdmsg(o_XM_TOGGLE_BUTTON_WIDGET_CLASS, ":ADD_CALLBACK",
  249.            FTAB_Xm_Toggle_Button_Widget_Class_Method_ADD_CALLBACK);
  250.  
  251.   xladdmsg(o_XM_TOGGLE_BUTTON_WIDGET_CLASS, ":SET_CALLBACK",
  252.            FTAB_Xm_Toggle_Button_Widget_Class_Method_SET_CALLBACK);
  253.  
  254.   xladdmsg(o_XM_TOGGLE_BUTTON_WIDGET_CLASS, ":GET_STATE",
  255.            FTAB_Xm_Toggle_Button_Widget_Class_Method_GET_STATE);
  256.  
  257.   xladdmsg(o_XM_TOGGLE_BUTTON_WIDGET_CLASS, ":SET_STATE",
  258.            FTAB_Xm_Toggle_Button_Widget_Class_Method_SET_STATE);
  259.  
  260.  
  261.   o_XM_TOGGLE_BUTTON_GADGET_CLASS =
  262.     Wcls_Create_Subclass_Of_WIDGET_CLASS("XM_TOGGLE_BUTTON_GADGET_CLASS",
  263.                      xmToggleButtonGadgetClass);
  264.  
  265.   xladdmsg(o_XM_TOGGLE_BUTTON_GADGET_CLASS, ":ADD_CALLBACK",
  266.            FTAB_Xm_Toggle_Button_Widget_Class_Method_ADD_CALLBACK);
  267.  
  268.   xladdmsg(o_XM_TOGGLE_BUTTON_GADGET_CLASS, ":SET_CALLBACK",
  269.            FTAB_Xm_Toggle_Button_Widget_Class_Method_SET_CALLBACK);
  270.  
  271.   xladdmsg(o_XM_TOGGLE_BUTTON_GADGET_CLASS, ":GET_STATE",
  272.            FTAB_Xm_Toggle_Button_Gadget_Class_Method_GET_STATE);
  273.  
  274.   xladdmsg(o_XM_TOGGLE_BUTTON_GADGET_CLASS, ":SET_STATE",
  275.            FTAB_Xm_Toggle_Button_Gadget_Class_Method_SET_STATE);
  276.  
  277.   s_CALLBACK_SET = xlenter("CALLBACK_SET");
  278. }
  279.